#!/usr/bin/perl 
# even1.pl
use warnings;
use strict;

# print out even numbers with a do...while loop
my $n = 0;
do { {
   next if ($n % 2);
   print $n, "\n";
} } while ($n++ < 10);